home *** CD-ROM | disk | FTP | other *** search
/ cyber.net interactivo 1997 January / inter@ivo 1997-01.iso / cybint12 / bin / rcervj.dxr / 00053.ls < prev    next >
Encoding:
Text File  |  1996-12-14  |  344 b   |  19 lines
  1. on mouseUp
  2.   global castv, Gframe, Gmovie
  3.   unLoadCast(castv)
  4.   set the sound of cast castv to 0
  5.   InVis(12)
  6.   sound playFile 2, "..\som\seta.wav"
  7.   startTimer()
  8.   repeat while the timer < 20
  9.     nothing()
  10.   end repeat
  11.   onVis(14)
  12.   updateStage()
  13.   startTimer()
  14.   repeat while the timer < 30
  15.     nothing()
  16.   end repeat
  17.   go(Gframe, Gmovie)
  18. end
  19.